# wykres pojawi sie na nastepnym slajdzie
library(ggplot2)
# dane - poziom umiejetnosci w roznych technologiach
skills <- data.frame(
Technologia = c("R", "Python", "SQL", "HTML/CSS", "Git"),
Poziom = c(50, 80, 70, 50, 80)
)
# wykres slupkowy
ggplot(skills, aes(x = Technologia, y = Poziom)) +
geom_col(fill = "steelblue") +
theme_minimal() +
labs(title = "Moj Stack Technologiczny",
x = "Technologia",
y = "Poziom (%)")


